Imports WindowsApplication1
Public Class CriterioCompNumero
    Implements IComparer

    Public Function CompPorNumero(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Cliente).numero - CType(y, Cliente).numero
    End Function
End Class
